home *** CD-ROM | disk | FTP | other *** search
/ Publication 14 / Publication_14_19xx_Civitas_de_Side_B.d64 / color samplerc64 (.txt) < prev    next >
Commodore BASIC  |  2023-02-26  |  641b  |  16 lines
  1. 1 p1$=""
  2. 2 dimcl(15):dimcl$(15):p$=p1$+"[144]hit any key  hit any key"
  3. 3 ford=0to15:readcl(d):readcl$(d):next
  4. 10 fora=0to15
  5. 20 poke53280,a:poke53281,a
  6. 30 forb=15to0step-1:poke646,b:print"[147]    colors: ";cl$(b);"  on: "cl$(a)
  7. 40 forc=1to10:print"[166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166][166]                    ":next
  8. 43 forc=1to10:print"abcdefghijklmnopqrs[146]tuvwxyz123457890.,:@":next
  9. 44 printp1$;"[145]                                       "
  10. 45 printp1$;"[145][195]-64:text is #";b;"  &   bkgd is #";a
  11. 50 printp$:poke198,0:wait198,1
  12. 60 nextb,a
  13. 100 data0,black,1,white,2,red,3,cyan,4,purple,5,green,6,blue,7,yellow
  14. 110 data8,orange,9,brown,10,lt. red,11,gray,12,med. gray,13,lt. green,14,lt. blue
  15. 120 data15,lt. gray
  16.